home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 015a / bbb_v21.zip / BETDEMO.BAT < prev    next >
DOS Batch File  |  1991-11-25  |  1KB  |  51 lines
  1. @echo off
  2. REM
  3. REM This batch demonstrates some of BET's features - see BET.DOC for details
  4. REM
  5. bbb ansitest > nul
  6. if errorlevel 255 goto noansi
  7. bbb reset c 0 1 # c 6 4 ! b 6 20 22 60 f d @ 6 22 ? [BETDEMO]~ 
  8. bbb @ 6 48 d 
  9. bbb c 3 4 @ 8 28 ? Brent's Environment Tools~
  10.  
  11. bbb reset c 6 4 @ 10 27 ? Please enter your full name~
  12. :getname
  13. bbb reset @ 12 24 $ _~ 33 @ 12 24 i FullName
  14. bet FullName ltrim FullName
  15. bet i instr FullName ~
  16. if errorlevel 1 goto ok
  17.   bbb + reset @ 12 24 ; ? Both ~ reset ? names please! ...press a key ~ p
  18.   goto getname
  19. :ok
  20. bet Given left FullName %i%
  21. bet i add %i% 1
  22. bet Last mid FullName %i% 99
  23. set i=
  24. bbb c 5 4 ! @ 15 24 ? First Name: %Given%~
  25. bbb @ 16 24 ? Last Name : %Last%~
  26. set Given=
  27. set Last=
  28.  
  29. bbb ! c 7 4 @ 17 24 ? Count:~
  30. set i=1
  31. :top
  32.   bbb @ 17 32 ? %i% 
  33.   bet i add %i% 1
  34.   bet is %i% le 5
  35. if errorlevel 255 goto top
  36.  
  37. bet temp cpu
  38. bbb c 2 4 @ 19 24 ? Processor: 80%temp%~
  39. bet temp video
  40. bbb @ 20 24 ? Video Adapter: %temp%~
  41.  
  42. set temp=
  43. set i=
  44. bbb reset @ 25 1 clreol 
  45. goto end
  46.  
  47. :noansi
  48. bbb + ? Ansi not loaded! - this demo requires ANSI.SYS~ enter
  49.  
  50. :end
  51.